home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / BASICWNT.ZIP / PRINT.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-11  |  1.4 KB  |  33 lines
  1. 0 rem *
  2. 1 rem *
  3. 2 rem *PRINT_TEST_FOR_NITROUSBASIC
  4. 3 rem *
  5. 4 rem *
  6. 10 cls 
  7. 20 print "Back ""To ""Back"" Strings"
  8. 30 print "Back "+"To "+"Back"+" Strings"
  9. 40 print "Back ";"To ";"Back";" Strings"
  10. 50 A$="Back ""To ""Back"" Strings"
  11. 60 print A$
  12. 70 A$="Back "+"To "+"Back"+" Strings"
  13. 80 print A$
  14. 90 print :print :print :print "(Blank lines)"
  15. 100 A=123.456 :print "Number: ";A
  16. 110 print "Number: ";A;"..and strings..";A$;"..Wow""...."
  17. 115 print "Full string expressions and numeric expressions:"
  18. 220 print cos (sin (cos (sin (cos (sin (cos (sin (len ("Hello")))))))))
  19. 225 print "Complicated numeric expressions:"
  20. 330 print (A+2 *3 /4 )+(A+B+C+D+E)/2 *((1 /1 +3 /3 )/(A+B+C+D+1 ))
  21. 335 print "The value of a$ is '";A$;"'"
  22. 440 print "The length of A$ is ";len (A$)
  23. 450 print "The left 10 characters of a$ is '";left$ (A$,10 );"'"
  24. 500 print "The right 10 characters of a$ are '";right$ (A$,10 );"'"
  25. 510 print "The middle 4 characters of a$ starting at 9 is '";mid$ (A$,9 ,4 );"'"
  26. 520 print "The right 2 characters of the above is '";right$ (mid$ (A$,9 ,4 ),2 );"'"
  27. 530 print "The left 2 characters of the above is '";left$ (mid$ (A$,9 ,4 ),2 );"'"
  28. 540 print "All 4 letters together is '";left$ (mid$ (A$,9 ,4 ),2 );right$ (mid$ (A$,9 ,4 ),2 );"'"
  29. 550 print "Columns: ",1 ,2 ,3 ,4 ,5 
  30. 560 print "Columns: ",100 ,200 ,300 ,400 ,500 
  31. 570 print "Columns: ",1000 ,2000 ,3000 ,4000 ,5000 
  32. 600 print :print "Enough for now...."
  33.